object FrmPedidos: TFrmPedidos
  Left = 184
  Top = -3
  BorderStyle = bsSingle
  Caption = 'Pedido de Balc'#227'o'
  ClientHeight = 674
  ClientWidth = 787
  Color = clBtnFace
  Font.Charset = DEFAULT_CHARSET
  Font.Color = clWindowText
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  FormStyle = fsMDIChild
  KeyPreview = True
  OldCreateOrder = True
  Position = poDesktopCenter
  Visible = True
  WindowState = wsMaximized
  OnClose = FormClose
  OnKeyPress = FormKeyPress
  OnShow = FormShow
  PixelsPerInch = 96
  TextHeight = 13
  object Label7: TLabel
    Left = 396
    Top = 147
    Width = 3
    Height = 13
  end
  object Panel1: TPanel
    Left = 0
    Top = 637
    Width = 787
    Height = 37
    Align = alBottom
    BevelInner = bvLowered
    BorderWidth = 2
    TabOrder = 0
    object Bitnovo: TBitBtn
      Left = 5
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Inclui um novo Registro '
      Caption = '&Novo'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      OnClick = BitnovoClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F33333337F333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333FF7F33333337FFFBBB0FFFFFFFF0BB37777F3333333777F3BB0FFFFFFFF
        0BBB3777F3333FFF77773330FFFF000003333337F333777773333330FFFF0FF0
        33333337F3337F37F3333330FFFF0F0B33333337F3337F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object Bitcancela: TBitBtn
      Left = 79
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Cancela Inclus'#227'o/Altera'#231#227'o do Registro '
      Caption = '&Voltar'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 1
      OnClick = BitcancelaClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33F333337F3333373B33333BB33333B337FF33377F33337F3BB3333BB333
        3BB3377FF3377F33377333BB777BB777BB333377FFF77FFF7733330000000000
        B3333377777777777333330FFFFFFFF03333337F3FF3FFF7F333330F00F000F0
        33333F7F77377737FFFFBB0FFF8FFFF0BBB3777F3F33FFF7777F3B0F08700000
        000B377F73F7777777773308880FFFFFF033337F377333333733330807FFFFF8
        033333737FFFFFFF7F33333000000000B3333337777777777FF333BB333BB333
        BB33337733377F3377FF3BB3333BB3333BB3377333377F33377F3B33333BB333
        33B33733333773333373B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object Bitedita: TBitBtn
      Left = 153
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Altera dados do Registro '
      Caption = '&Alterar'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 2
      OnClick = BiteditaClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF0033333333B333
        333B33FF33337F3333F73BB3777BB7777BB3377FFFF77FFFF77333B000000000
        0B3333777777777777333330FFFFFFFF07333337F33333337F333330FFFFFFFF
        07333337F3FF3FFF7F333330F00F000F07333337F77377737F333330FFFFFFFF
        07333FF7F3FFFF3F7FFFBBB0F0000F0F0BB37777F7777373777F3BB0FFFFFFFF
        0BBB3777F3FF3FFF77773330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F37F3333330F08F0F0B33333337F7737F77FF333330FFFF003B
        B3333337FFFF77377FF333B000000333BB33337777777F3377FF3BB3333BB333
        3BB33773333773333773B333333B3333333B7333333733333337}
      NumGlyphs = 2
    end
    object Bitexclui: TBitBtn
      Left = 227
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Exclui Registro '
      Caption = '&Excluir'
      Enabled = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 3
      OnClick = BitexcluiClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333000000000
        3333333777777777F3333330F777777033333337F3F3F3F7F3333330F0808070
        33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
        33333337F7F7F7F7F3333330F080707033333337F7F7F7F7F3333330F0808070
        333333F7F7F7F7F7F3F33030F080707030333737F7F7F7F7F7333300F0808070
        03333377F7F7F7F773333330F080707033333337F7F7F7F7F333333070707070
        33333337F7F7F7F7FF3333000000000003333377777777777F33330F88877777
        0333337FFFFFFFFF7F3333000000000003333377777777777333333330777033
        3333333337FFF7F3333333333000003333333333377777333333}
      NumGlyphs = 2
    end
    object Bitpesquisa: TBitBtn
      Left = 301
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Localiza Registro '
      Caption = '&Procurar'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 4
      OnClick = BitpesquisaClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
        3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
        33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
        333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
    end
    object Bitfecha: TBitBtn
      Left = 488
      Top = 5
      Width = 74
      Height = 26
      Hint = ' Fecha Tela de Cadastro '
      Caption = '&Sair'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 6
      OnClick = BitfechaClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000120B0000120B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00330000000000
        03333377777777777F333301BBBBBBBB033333773F3333337F3333011BBBBBBB
        0333337F73F333337F33330111BBBBBB0333337F373F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F337F33337F333301110BBBBB0333337F337FF3337F33330111B0BBBB
        0333337F337733337F333301110BBBBB0333337F337F33337F333301110BBBBB
        0333337F3F7F33337F333301E10BBBBB0333337F7F7F33337F333301EE0BBBBB
        0333337F777FFFFF7F3333000000000003333377777777777333}
      NumGlyphs = 2
    end
    object BitImprimir: TBitBtn
      Left = 706
      Top = 6
      Width = 75
      Height = 25
      Caption = 'Imprimir'
      Enabled = False
      TabOrder = 7
      OnClick = BitImprimirClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00300000000000
        00033FFFFFFFFFFFFFFF0888888888888880777777777777777F088888888888
        8880777777777777777F0000000000000000FFFFFFFFFFFFFFFF0F8F8F8F8F8F
        8F80777777777777777F08F8F8F8F8F8F9F0777777777777777F0F8F8F8F8F8F
        8F807777777777777F7F0000000000000000777777777777777F3330FFFFFFFF
        03333337F3FFFF3F7F333330F0000F0F03333337F77773737F333330FFFFFFFF
        03333337F3FF3FFF7F333330F00F000003333337F773777773333330FFFF0FF0
        33333337F3FF7F3733333330F08F0F0333333337F7737F7333333330FFFF0033
        33333337FFFF7733333333300000033333333337777773333333}
      NumGlyphs = 2
    end
    object btnConsProd: TBitBtn
      Left = 375
      Top = 5
      Width = 114
      Height = 26
      Hint = 'Localiza Produtos'
      Caption = 'Consulta Produto'
      ParentShowHint = False
      ShowHint = True
      TabOrder = 5
      OnClick = btnConsProdClick
      Glyph.Data = {
        76010000424D7601000000000000760000002800000020000000100000000100
        04000000000000010000130B0000130B00001000000000000000000000000000
        800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
        FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333333333
        33033333333333333F7F3333333333333000333333333333F777333333333333
        000333333333333F777333333333333000333333333333F77733333333333300
        033333333FFF3F777333333700073B703333333F7773F77733333307777700B3
        33333377333777733333307F8F8F7033333337F333F337F3333377F8F9F8F773
        3333373337F3373F3333078F898F870333337F33F7FFF37F333307F99999F703
        33337F377777337F3333078F898F8703333373F337F33373333377F8F9F8F773
        333337F3373337F33333307F8F8F70333333373FF333F7333333330777770333
        333333773FF77333333333370007333333333333777333333333}
      NumGlyphs = 2
    end
  end
  object Panel2: TPanel
    Left = 0
    Top = 0
    Width = 787
    Height = 637
    Align = alClient
    TabOrder = 1
    object Label8: TLabel
      Left = 626
      Top = 516
      Width = 76
      Height = 22
      Caption = 'Total R$:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -19
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentFont = False
    end
    object Label13: TLabel
      Left = 4
      Top = 521
      Width = 30
      Height = 15
      Caption = 'Itens:'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label30: TLabel
      Left = 87
      Top = 521
      Width = 52
      Height = 15
      Caption = 'Sub-Total'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object Label31: TLabel
      Left = 188
      Top = 521
      Width = 52
      Height = 15
      Caption = 'Desconto'
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -13
      Font.Name = 'Times New Roman'
      Font.Style = []
      ParentFont = False
    end
    object PnlItensPedido: TPanel
      Left = 1
      Top = 245
      Width = 785
      Height = 272
      Align = alTop
      BevelOuter = bvLowered
      BorderWidth = 1
      Color = 16767940
      Enabled = False
      TabOrder = 2
      object Label5: TLabel
        Left = 3
        Top = 25
        Width = 96
        Height = 13
        Caption = 'C'#243'digo - PRODUTO'
      end
      object Label24: TLabel
        Left = 3
        Top = 65
        Width = 55
        Height = 13
        Caption = 'Quantidade'
      end
      object Label25: TLabel
        Left = 285
        Top = 65
        Width = 75
        Height = 13
        Caption = 'P'#231'o Unit'#225'rio R$'
      end
      object Label12: TLabel
        Left = 323
        Top = 103
        Width = 41
        Height = 13
        Caption = 'Hist'#243'rico'
      end
      object Label11: TLabel
        Left = 390
        Top = 65
        Width = 80
        Height = 13
        Caption = 'Total Unit'#225'rio R$'
      end
      object Label14: TLabel
        Left = 86
        Top = 86
        Width = 9
        Height = 13
        Caption = 'X'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label18: TLabel
        Left = 377
        Top = 80
        Width = 13
        Height = 24
        Caption = '='
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -19
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentFont = False
      end
      object Label19: TLabel
        Left = 3
        Top = 103
        Width = 26
        Height = 13
        Caption = 'Serial'
      end
      object Label4: TLabel
        Left = 97
        Top = 64
        Width = 70
        Height = 13
        Caption = 'Tipo de Pre'#231'o:'
      end
      object Label15: TLabel
        Left = 189
        Top = 65
        Width = 68
        Height = 13
        Caption = 'P'#231'o tabela R$'
      end
      object EditCodProduto: TEdit
        Left = 2
        Top = 39
        Width = 119
        Height = 21
        Hint = 
          'C'#243'digo/Serial -- (1/E)Encerra  (2/S)Servi'#231'o  (3/P)Produto (7/A)A' +
          'lterar itens (8/G)Alterar dados (9/C)Cancelar  (*)Quantidade'
        CharCase = ecUpperCase
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 4
        OnEnter = ExibirHints
        OnExit = EditCodProdutoExit
      end
      object BtnProduto: TBitBtn
        Left = 121
        Top = 39
        Width = 25
        Height = 21
        Hint = 'Pesquisa Item.'
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        TabStop = False
        OnClick = BtnProdutoClick
      end
      object EditCodHistorico: TEdit
        Left = 323
        Top = 116
        Width = 44
        Height = 21
        Hint = 'Codigo do produto'
        CharCase = ecUpperCase
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnEnter = ExibirHints
        OnExit = EditCodHistoricoExit
      end
      object BtnHistorico: TBitBtn
        Left = 367
        Top = 116
        Width = 25
        Height = 21
        Hint = 'Pesquisa Item.'
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = False
        OnClick = BtnHistoricoClick
      end
      object EditPrecoUnitario: TEdit
        Left = 286
        Top = 79
        Width = 90
        Height = 21
        Hint = 'Exibe Descri'#231#227'o do Item.'
        BiDiMode = bdLeftToRight
        Color = clBtnFace
        Ctl3D = True
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentBiDiMode = False
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 8
        OnEnter = ExibirHints
        OnExit = EditPrecoUnitarioExit
        OnKeyPress = EditPrecoUnitarioKeyPress
      end
      object EditQuantidade: TEdit
        Left = 3
        Top = 79
        Width = 78
        Height = 21
        Hint = 'Codigo do produto'
        CharCase = ecUpperCase
        Color = clBtnFace
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 9
        OnEnter = ExibirHints
        OnExit = EditQuantidadeExit
        OnKeyPress = EditQuantidadeKeyPress
      end
      object DBGrid2: TDBGrid
        Left = 2
        Top = 142
        Width = 781
        Height = 102
        TabStop = False
        Color = clWhite
        Ctl3D = True
        DataSource = DtsItem
        FixedColor = 16767940
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsItalic]
        Options = [dgTitles, dgIndicator, dgColLines, dgRowLines, dgTabs, dgRowSelect, dgConfirmDelete, dgCancelOnExit]
        ParentCtl3D = False
        ParentFont = False
        ReadOnly = True
        TabOrder = 3
        TitleFont.Charset = DEFAULT_CHARSET
        TitleFont.Color = clWindowText
        TitleFont.Height = -11
        TitleFont.Name = 'MS Sans Serif'
        TitleFont.Style = []
        OnDrawColumnCell = DBGrid2DrawColumnCell
        OnEnter = DBGrid2Enter
        OnExit = DBGrid2Exit
        OnKeyDown = DBGrid2KeyDown
        OnKeyPress = DBGrid2KeyPress
        Columns = <
          item
            Expanded = False
            FieldName = 'BAI_SEQITEM'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Title.Caption = 'Item'
            Width = 25
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BAI_PROSER'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Title.Caption = 'Tp'
            Width = 18
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Codigo'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Width = 81
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Descricao'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Title.Alignment = taCenter
            Title.Caption = 'Descri'#231#227'o'
            Width = 328
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BAI_QUANTI'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Title.Alignment = taCenter
            Title.Caption = 'Quantidade'
            Width = 65
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BAI_PREVEN'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Title.Alignment = taCenter
            Title.Caption = 'P'#231'o.Vendido'
            Width = 75
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'Total'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Title.Caption = 'Total R$'
            Width = 70
            Visible = True
          end
          item
            Expanded = False
            FieldName = 'BAI_SERIAL'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Title.Caption = 'Serial'
            Width = 120
            Visible = True
          end
          item
            Alignment = taCenter
            Expanded = False
            FieldName = 'BAI_IDFITEM'
            Font.Charset = DEFAULT_CHARSET
            Font.Color = clWindowText
            Font.Height = -11
            Font.Name = 'MS Sans Serif'
            Font.Style = []
            Title.Alignment = taCenter
            Title.Caption = 'Codigo'
            Visible = False
          end>
      end
      object StSerial: TStaticText
        Left = 3
        Top = 116
        Width = 315
        Height = 21
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 2
      end
      object StTotalUnitario: TStaticText
        Left = 392
        Top = 79
        Width = 91
        Height = 22
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 10
      end
      object StDescriProduto: TStaticText
        Left = 146
        Top = 39
        Width = 623
        Height = 22
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 11
      end
      object StHistorico: TStaticText
        Left = 392
        Top = 116
        Width = 382
        Height = 22
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 12
      end
      object PnlItensdoPedido: TPanel
        Left = 2
        Top = 2
        Width = 781
        Height = 19
        Align = alTop
        BorderWidth = 1
        Caption = 'Itens do Pedido'
        Color = 16767940
        Ctl3D = True
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentCtl3D = False
        ParentFont = False
        TabOrder = 13
      end
      object BitBtn_FecharPedido: TBitBtn
        Left = 2
        Top = 245
        Width = 108
        Height = 25
        Caption = '1-Fechar Pedido'
        Enabled = False
        TabOrder = 14
        OnClick = BitBtn_FecharPedidoClick
      end
      object BitBtn_Servicos: TBitBtn
        Left = 110
        Top = 245
        Width = 108
        Height = 25
        Caption = '2- Servi'#231'os'
        Enabled = False
        TabOrder = 15
        OnClick = BitBtn_ServicosClick
      end
      object BitBtn_Produtos: TBitBtn
        Left = 218
        Top = 245
        Width = 108
        Height = 25
        Caption = '3- Produtos'
        Enabled = False
        TabOrder = 16
        OnClick = BitBtn_ProdutosClick
      end
      object BitBtn_AlterarItens: TBitBtn
        Left = 326
        Top = 245
        Width = 108
        Height = 25
        Caption = '7- Alterar Itens'
        Enabled = False
        TabOrder = 17
        OnClick = BitBtn_AlterarItensClick
      end
      object BitBtn_AlterarCabecalho: TBitBtn
        Left = 434
        Top = 245
        Width = 108
        Height = 25
        Caption = '8- Alterar Cabe'#231'alho'
        Enabled = False
        TabOrder = 18
        OnClick = BitBtn_AlterarCabecalhoClick
      end
      object BitBtn_CancelarPedido: TBitBtn
        Left = 543
        Top = 245
        Width = 108
        Height = 25
        Caption = '9- Cancelar Pedido'
        Enabled = False
        TabOrder = 19
        OnClick = BitBtn_CancelarPedidoClick
      end
      object rgPreco: TComboBox
        Left = 98
        Top = 79
        Width = 81
        Height = 21
        AutoDropDown = True
        Style = csDropDownList
        CharCase = ecUpperCase
        Enabled = False
        ItemHeight = 13
        ItemIndex = 0
        TabOrder = 6
        Text = 'VENDA'
        OnChange = rgPrecoClick
        OnExit = rgPrecoExit
        Items.Strings = (
          'VENDA'
          'ATACADO')
      end
      object edtTabela: TEdit
        Left = 189
        Top = 79
        Width = 90
        Height = 21
        Hint = 'Exibe Descri'#231#227'o do Item.'
        BiDiMode = bdLeftToRight
        Color = clBtnFace
        Ctl3D = True
        Enabled = False
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentBiDiMode = False
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 7
        OnEnter = ExibirHints
        OnExit = EditPrecoUnitarioExit
        OnKeyPress = EditPrecoUnitarioKeyPress
      end
    end
    object Panel3: TPanel
      Left = 1
      Top = 1
      Width = 785
      Height = 41
      Align = alTop
      BevelInner = bvLowered
      BorderWidth = 2
      Caption = 'Pedido de Balc'#227'o'
      Color = clWhite
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clBlue
      Font.Height = -27
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold, fsItalic]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 0
    end
    object PnlDadosPedido: TPanel
      Left = 1
      Top = 91
      Width = 785
      Height = 154
      Align = alTop
      BorderWidth = 1
      Color = 12377598
      Enabled = False
      TabOrder = 1
      object Label1: TLabel
        Left = 3
        Top = 44
        Width = 78
        Height = 13
        Caption = 'Cliente / Pessoa'
      end
      object Label3: TLabel
        Left = 3
        Top = 5
        Width = 46
        Height = 13
        Caption = 'Vendedor'
      end
      object Label16: TLabel
        Left = 3
        Top = 81
        Width = 48
        Height = 13
        Caption = 'Cpf / Cnpj'
      end
      object Label20: TLabel
        Left = 113
        Top = 81
        Width = 71
        Height = 13
        Caption = 'Identidade/I.E.'
      end
      object Label21: TLabel
        Left = 293
        Top = 117
        Width = 33
        Height = 13
        Caption = 'Cidade'
      end
      object Label22: TLabel
        Left = 438
        Top = 117
        Width = 20
        Height = 13
        Caption = 'U.F.'
      end
      object Label26: TLabel
        Left = 476
        Top = 5
        Width = 57
        Height = 13
        Caption = 'Desconto %'
      end
      object Label27: TLabel
        Left = 3
        Top = 117
        Width = 46
        Height = 13
        Caption = 'Endere'#231'o'
      end
      object Label28: TLabel
        Left = 222
        Top = 81
        Width = 42
        Height = 13
        Caption = 'Telefone'
      end
      object Label29: TLabel
        Left = 335
        Top = 81
        Width = 32
        Height = 13
        Caption = 'Celular'
      end
      object Label17: TLabel
        Left = 476
        Top = 44
        Width = 136
        Height = 13
        Caption = 'Observa'#231#245'es sobre o pedido'
      end
      object Label32: TLabel
        Left = 544
        Top = 5
        Width = 86
        Height = 13
        Caption = 'Tipo de Opera'#231#227'o'
      end
      object BtnPessoa: TBitBtn
        Left = 113
        Top = 56
        Width = 24
        Height = 23
        Hint = ' Enter consulta pessoas '
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 7
        TabStop = False
        OnClick = BtnPessoaClick
      end
      object DBEdtVendedor_Codigo: TDBEdit
        Left = 3
        Top = 17
        Width = 49
        Height = 21
        Hint = 'Codigo do Vendedor'
        CharCase = ecUpperCase
        DataField = 'BAD_CODVEN'
        DataSource = DtSrc
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 0
        OnEnter = ExibirHints
        OnExit = DBEdtVendedor_CodigoExit
      end
      object BtnVendedor: TBitBtn
        Left = 51
        Top = 16
        Width = 24
        Height = 22
        Hint = ' Enter Consulta vendedor '
        Caption = '...'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 1
        TabStop = False
        OnClick = BtnVendedorClick
      end
      object EditCodPessoa: TEdit
        Left = 3
        Top = 58
        Width = 110
        Height = 21
        Hint = 'Informe o C'#243'digo ou o Cpf/CNPJ sem os separadores'
        CharCase = ecUpperCase
        Color = clWhite
        TabOrder = 6
        OnEnter = ExibirHints
        OnExit = EditCodPessoaExit
      end
      object StNomVendedor: TStaticText
        Left = 75
        Top = 19
        Width = 397
        Height = 19
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 2
      end
      object StPessoaCpfCnpj: TStaticText
        Left = 3
        Top = 95
        Width = 107
        Height = 20
        AutoSize = False
        BevelKind = bkSoft
        Caption = '00.000.000/0001-00'
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 8
      end
      object StPessoaIdent: TStaticText
        Left = 113
        Top = 95
        Width = 107
        Height = 20
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 9
      end
      object StPessoaCidade: TStaticText
        Left = 293
        Top = 130
        Width = 142
        Height = 20
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 10
      end
      object StPessoaUf: TStaticText
        Left = 438
        Top = 130
        Width = 33
        Height = 20
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 11
      end
      object StPessoaEndereco: TStaticText
        Left = 3
        Top = 130
        Width = 287
        Height = 20
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 12
      end
      object StPessoaTelefone: TStaticText
        Left = 223
        Top = 95
        Width = 108
        Height = 20
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 13
      end
      object StPessoaCelular: TStaticText
        Left = 335
        Top = 95
        Width = 135
        Height = 20
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 14
      end
      object DBMemo1: TDBMemo
        Left = 476
        Top = 59
        Width = 304
        Height = 88
        DataField = 'BAD_OBSERVA'
        DataSource = DtSrc
        TabOrder = 15
        OnEnter = ExibirHints
        OnExit = CorSaida
      end
      object StPessoaNome: TStaticText
        Left = 137
        Top = 59
        Width = 334
        Height = 20
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        ParentColor = False
        TabOrder = 16
      end
      object EdtVendedorDesconto: TEdit
        Left = 476
        Top = 18
        Width = 57
        Height = 21
        TabOrder = 3
        OnExit = EdtVendedorDescontoExit
      end
      object cbOperacao: TComboBox
        Left = 544
        Top = 18
        Width = 89
        Height = 21
        AutoCloseUp = True
        Style = csDropDownList
        ItemHeight = 13
        TabOrder = 4
        OnChange = cbOperacaoChange
        Items.Strings = (
          'DEVOLU'#199#195'O'
          'VENDA')
      end
      object btnDocSaida: TBitBtn
        Left = 637
        Top = 17
        Width = 141
        Height = 22
        Hint = ' Enter Consulta vendedor '
        Caption = 'Procurar Doc. de Sa'#237'da'
        Enabled = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 5
        OnClick = btnDocSaidaClick
      end
    end
    object PanelDocumento: TPanel
      Left = 1
      Top = 42
      Width = 785
      Height = 49
      Align = alTop
      BorderWidth = 1
      Color = 12377598
      Ctl3D = True
      Font.Charset = DEFAULT_CHARSET
      Font.Color = clWindowText
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 3
      object Bevel1: TBevel
        Left = 577
        Top = 2
        Width = 206
        Height = 45
        Align = alRight
      end
      object Label6: TLabel
        Left = 3
        Top = 3
        Width = 41
        Height = 13
        Caption = 'Empresa'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label2: TLabel
        Left = 340
        Top = 3
        Width = 101
        Height = 13
        Caption = 'Data/Hora do pedido'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label9: TLabel
        Left = 594
        Top = 5
        Width = 65
        Height = 13
        Caption = #218'ltimo Pedido'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label10: TLabel
        Left = 681
        Top = 5
        Width = 71
        Height = 13
        Caption = 'Valor Total R$:'
        Font.Charset = ANSI_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object Label23: TLabel
        Left = 448
        Top = 3
        Width = 42
        Height = 13
        Caption = 'Situa'#231#227'o'
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
      end
      object DBEdtEmpresa_IDF: TDBEdit
        Left = 4
        Top = 16
        Width = 32
        Height = 23
        Hint = 'Digite o c'#243'digo da empresa.'
        BevelKind = bkSoft
        BorderStyle = bsNone
        CharCase = ecUpperCase
        Color = clBtnFace
        DataField = 'BAD_IDFEMPRESA'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentFont = False
        ParentShowHint = False
        ReadOnly = True
        ShowHint = True
        TabOrder = 0
        OnEnter = ExibirHints
        OnExit = CorSaida
      end
      object StEmpresaDescri: TStaticText
        Left = 37
        Top = 16
        Width = 297
        Height = 23
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentColor = False
        ParentFont = False
        TabOrder = 1
      end
      object DBEdtDataVenda: TDBEdit
        Left = 340
        Top = 16
        Width = 103
        Height = 23
        Hint = 'Data de saida do documento'
        BevelKind = bkSoft
        BorderStyle = bsNone
        Color = clBtnFace
        Ctl3D = True
        DataField = 'BAD_DATAVE'
        DataSource = DtSrc
        Enabled = False
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -13
        Font.Name = 'MS Sans Serif'
        Font.Style = []
        ParentCtl3D = False
        ParentFont = False
        ParentShowHint = False
        ShowHint = True
        TabOrder = 2
      end
      object StUltimoPedido: TStaticText
        Left = 594
        Top = 18
        Width = 81
        Height = 23
        Alignment = taRightJustify
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -19
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        TabOrder = 3
      end
      object StUltimoValor: TStaticText
        Left = 681
        Top = 18
        Width = 90
        Height = 23
        Alignment = taRightJustify
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        Font.Charset = ANSI_CHARSET
        Font.Color = clBlack
        Font.Height = -19
        Font.Name = 'Times New Roman'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        TabOrder = 4
      end
      object StSituacaoPedido: TStaticText
        Left = 447
        Top = 16
        Width = 92
        Height = 23
        AutoSize = False
        BevelKind = bkSoft
        Color = clActiveBorder
        Font.Charset = DEFAULT_CHARSET
        Font.Color = clWindowText
        Font.Height = -11
        Font.Name = 'MS Sans Serif'
        Font.Style = [fsBold]
        ParentColor = False
        ParentFont = False
        TabOrder = 5
      end
    end
    object SbHints: TStatusBar
      Left = 1
      Top = 617
      Width = 785
      Height = 19
      Color = clWhite
      Panels = <
        item
          Alignment = taCenter
          Width = 70
        end>
      Visible = False
    end
    object PnlTotalPedido: TPanel
      Left = 628
      Top = 536
      Width = 147
      Height = 32
      Alignment = taRightJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      Color = clWhite
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -27
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 5
    end
    object PnlTotalItens: TPanel
      Left = 4
      Top = 537
      Width = 77
      Height = 22
      Alignment = taRightJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      Color = clWhite
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 6
    end
    object PnlSubtotal: TPanel
      Left = 87
      Top = 537
      Width = 93
      Height = 22
      Alignment = taRightJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      Color = clWhite
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 7
    end
    object PnlDesconto: TPanel
      Left = 188
      Top = 537
      Width = 93
      Height = 22
      Alignment = taRightJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      Color = clWhite
      Ctl3D = True
      Font.Charset = ANSI_CHARSET
      Font.Color = clWindowText
      Font.Height = -16
      Font.Name = 'Times New Roman'
      Font.Style = [fsBold]
      ParentCtl3D = False
      ParentFont = False
      TabOrder = 8
    end
  end
  object DtSrc: TDataSource
    DataSet = DtMBalcao.SQLC_Balcao_Documento
    Left = 8
    Top = 8
  end
  object DtsItem: TDataSource
    DataSet = DtMBalcao.SQLC_Balcao_Produtos
    Left = 49
    Top = 9
  end
  object SQLC_Credito: TSQLClientDataSet
    CommandText = 
      'SELECT '#13#10'   CRE_IDFCOD, '#13#10'   CRE_PESSOA,'#13#10'   CRE_EMPRESA, '#13#10'   C' +
      'RE_DATA,'#13#10'   CRE_VALOR,'#13#10'   CRE_VALIDADE,'#13#10'   CRE_VALORPAGO,'#13#10'  ' +
      ' CRE_SITUACAO,'#13#10'   CRE_OBSERVACOES'#13#10'FROM CREDITO_CLIENTE'#13#10'WHERE ' +
      'CRE_IDFCOD=:IDF'
    Aggregates = <>
    Options = [poAllowCommandText]
    ObjectView = True
    Params = <
      item
        DataType = ftInteger
        Name = 'IDF'
        ParamType = ptInput
      end>
    DBConnection = DtmGeral.ConexaoBanco
    Left = 121
    Top = 9
    object SQLC_CreditoCRE_PESSOA: TIntegerField
      FieldName = 'CRE_PESSOA'
      Required = True
    end
    object SQLC_CreditoCRE_DATA: TDateField
      FieldName = 'CRE_DATA'
      Required = True
    end
    object SQLC_CreditoCRE_VALOR: TFMTBCDField
      FieldName = 'CRE_VALOR'
      Required = True
      DisplayFormat = '#####0.00'
      EditFormat = '#####0.00'
      Precision = 15
      Size = 2
    end
    object SQLC_CreditoCRE_VALIDADE: TDateField
      FieldName = 'CRE_VALIDADE'
    end
    object SQLC_CreditoCRE_VALORPAGO: TFMTBCDField
      FieldName = 'CRE_VALORPAGO'
      DisplayFormat = '#####0.00'
      EditFormat = '#####0.00'
      Precision = 15
      Size = 2
    end
    object SQLC_CreditoCRE_SITUACAO: TStringField
      FieldName = 'CRE_SITUACAO'
      Required = True
      FixedChar = True
      Size = 1
    end
    object SQLC_CreditoCRE_OBSERVACOES: TMemoField
      FieldName = 'CRE_OBSERVACOES'
      BlobType = ftMemo
      Size = 1
    end
    object SQLC_CreditoCRE_IDFCOD: TIntegerField
      FieldName = 'CRE_IDFCOD'
      Required = True
    end
    object SQLC_CreditoCRE_EMPRESA: TSmallintField
      FieldName = 'CRE_EMPRESA'
      Required = True
    end
  end
end
